inherited frmSituacao: TfrmSituacao
  Left = 386
  Top = 288
  Width = 534
  Height = 486
  AutoScroll = True
  Caption = ''
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 411
    Width = 518
    inherited Bitnovo: TBitBtn
      ParentFont = False
    end
    inherited Bitgrava: TBitBtn
      ParentFont = False
    end
    inherited Bitcancela: TBitBtn
      ParentFont = False
    end
    inherited Bitedita: TBitBtn
      ParentFont = False
    end
    inherited Bitexclui: TBitBtn
      ParentFont = False
    end
    inherited Bitfecha: TBitBtn
      ParentFont = False
    end
  end
  inherited Panel2: TPanel
    Width = 518
    Height = 411
    inherited Panel3: TPanel
      Width = 516
      Caption = 'Situa'#231#227'o Tribut'#225'ria'
      inherited GroupBox1: TGroupBox
        Left = 437
      end
    end
    inherited Panel4: TPanel
      Width = 516
      Height = 369
      Font.Name = 'Verdana'
      ParentFont = False
      object Label1: TLabel [0]
        Left = 23
        Top = 20
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
        FocusControl = EdtSitCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel [1]
        Left = 23
        Top = 60
        Width = 48
        Height = 13
        Caption = 'Descri'#231#227'o'
        FocusControl = EdtSitDescri
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel [2]
        Left = 324
        Top = 60
        Width = 51
        Height = 13
        Caption = 'Al'#237'quota %'
        FocusControl = EdtSitAlqIcm
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel [3]
        Left = 23
        Top = 100
        Width = 70
        Height = 13
        Caption = 'C.S.T - SEFAZ'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      inherited DBGrid1: TDBGrid
        Top = 152
        Width = 508
        TabOrder = 4
        TitleFont.Name = 'Verdana'
      end
      inherited SbHints: TStatusBar
        Top = 346
        Width = 508
      end
      object EdtSitCodigo: TDBEdit
        Tag = 1
        Left = 23
        Top = 34
        Width = 73
        Height = 21
        Hint = 'C'#243'digo de Situa'#231#227'o Tribut'#225'ria'
        DataField = 'SIT_CODIGO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnEnter = EdtSitCodigoEnter
        OnExit = EdtSitCodigoExit
      end
      object EdtSitDescri: TDBEdit
        Tag = 1
        Left = 23
        Top = 78
        Width = 297
        Height = 21
        Hint = 'Descri'#231#227'o de Situa'#231#227'o Tribut'#225'ria'
        CharCase = ecUpperCase
        DataField = 'SIT_DESCRI'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = EdtSitDescriExit
      end
      object EdtSitAlqIcm: TDBEdit
        Tag = 1
        Left = 324
        Top = 74
        Width = 73
        Height = 21
        Hint = 'Valor da Al'#237'quota'
        Color = clWhite
        DataField = 'SIT_ALQICM'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 6
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object Dbc_Cst: TDBComboBox
        Left = 24
        Top = 114
        Width = 377
        Height = 21
        Style = csDropDownList
        DataField = 'SIT_CST'
        DataSource = DtSrc
        ItemHeight = 13
        Items.Strings = (
          '00 - Tributada integralmente'
          
            '10 - Tributada e com cobran'#231'a do ICMS por substitui'#231#227'o tribut'#225'ri' +
            'a'
          '20 - Com redu'#231#227'o de base de c'#225'lculo'
          
            '30 - Isenta ou n'#227'o tributada e com cobran'#231'a do ICMS por substitu' +
            'i'#231#227'o tribut'#225'ria'
          '40 - Isenta'
          '41 - N'#227'o Tributada'
          '50 - Suspens'#227'o'
          '51 - Diferimento'
          '60 - ICMS cobrado anteriormente por substitui'#231#227'o tribut'#225'ria'
          
            '70 - Com redu'#231#227'o de base de c'#225'lculo e cobran'#231'a do ICMS por subst' +
            'itui'#231#227'o tribut'#225'ria'
          '90 - Outras'
          '101 - Tributada pelo Simples Nacional com permiss'#227'o de cr'#233'dito'
          '102 - Tributada pelo Simples Nacional sem permiss'#227'o de cr'#233'dito'
          
            '103 - Isen'#231#227'o do ICMS no Simples Nacional para faixa de receita ' +
            'bruta'
          
            '201 - Tributada pelo Simples Nacional com permiss'#227'o de cr'#233'dito e' +
            ' com cobran'#231'a do ICMS por substitui'#231#227'o tribut'#225'ria'
          
            '202 - Tributada pelo Simples Nacional sem permiss'#227'o de cr'#233'dito e' +
            ' com cobran'#231'a do ICMS por substitui'#231#227'o tribut'#225'ria'
          
            '203 - Isen'#231#227'o do ICMS no Simples Nacional para a faixa de receit' +
            'a bruta e com cobran'#231'a de ICMS por substitui'#231#227'o tribut'#225'ria'
          '300 - Imune'
          '400 - N'#227'o tributada pelo Simples Nacional'
          '500 - ICMS cobrado anteriormente por substitui'#231#227'o tribut'#225'ria'
          '900 - Outros')
        TabOrder = 5
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Situacao
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 136
    Top = 256
  end
  inherited ZSQLC_ConsultaDbGrid: TZReadOnlyQuery
    Left = 305
    Top = 249
  end
  inherited CDS_Consulta_DbGrid: TClientDataSet
    Left = 345
    Top = 345
  end
  object SQLC_Situacao: TSQLClientDataSet
    CommandText = 'select * from SITUACAO where  SIT_CODIGO=:pcod;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
      end>
    AfterScroll = SQLC_SituacaoAfterScroll
    DBConnection = DtmGeral.ConexaoBanco
    Left = 35
    Top = 321
    object SQLC_SituacaoSIT_CODIGO: TStringField
      DisplayLabel = 'CODIGO'
      FieldName = 'SIT_CODIGO'
      Required = True
      FixedChar = True
      Size = 2
    end
    object SQLC_SituacaoSIT_DESCRI: TStringField
      DisplayLabel = 'DESCRI'#199#195'O'
      FieldName = 'SIT_DESCRI'
      Required = True
      Size = 35
    end
    object SQLC_SituacaoSIT_ALQICM: TFMTBCDField
      DisplayLabel = 'ALIQUOTA %'
      FieldName = 'SIT_ALQICM'
      Precision = 15
      Size = 2
    end
    object SQLC_SituacaoSIT_CST: TStringField
      FieldName = 'SIT_CST'
      Size = 3
    end
  end
end
